home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / win_u_z / vxb102.zip / VXBTEST.ZIP / VXBASE.TXT < prev    next >
Text File  |  1991-12-02  |  9KB  |  171 lines
  1. ' vxBase Global Constants
  2. ' -----------------------
  3. Global Const BROWSE_CLOSED = -1
  4. Global Const BROWSE_EDIT = -2
  5. Global Const BROWSE_ADD = -3
  6. Global Const BROWSE_DELETE = -4
  7. Global Const BROWSE_ERROR = -5
  8. Global Const BROWSE_USER = -6
  9.  
  10. ' vxBase Color References for user tables
  11. ' ---------------------------------------
  12. Global Const VX_RED = &HFF
  13. Global Const VX_BLUE = &HFF0000
  14. Global Const VX_GRAY = &HC0C0C0
  15.  
  16. ' vxBase Control style modes
  17. ' --------------------------
  18. Global Const VX_RAISE = 0
  19. Global Const VX_RECESS = 1
  20. Global Const VX_CREASE = 2
  21.  
  22. ' vxBase Table Field Types
  23. ' ------------------------
  24. Global Const VX_FIELD = 0
  25. Global Const VX_EXPR = 1
  26.  
  27. ' browse case types
  28. ' -----------------
  29. Global Const VX_UPPER = 0
  30. GLobal Const VX_LOWER = 1
  31.  
  32.  
  33. ' vxBase CALLed Sub Procedures
  34. ' ----------------------------
  35. Declare Sub vxBrowse Lib "vxbase.dll" (ByVal Hwnd%, ByVal DbfArea%, ByVal NtxArea%, ByVal EditMode%, ByVal AllowFilter%, ByVal EditMenu%, ByVal StartRec&, ByVal Caption$, RetVal&)
  36. Declare Sub vxBrowseCase Lib "vxbase.dll" (ByVal DefCase As Integer)
  37. Declare Sub vxCtlGrayReset Lib "vxbase.dll" ()
  38. Declare Sub vxCtlGraySet Lib "vxbase.dll" ()
  39. Declare Sub vxCtlLength Lib "vxbase.dll" (Byval FieldName As String)
  40. Declare Sub vxCtlStyle Lib "vxbase.dll" (CtlName As Any, ByVal Mode As Integer)
  41. Declare Sub vxDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  42. Declare Sub vxExactOff Lib "vxbase.dll" ()
  43. Declare Sub vxExactOn Lib "vxbase.dll" ()
  44. Declare Sub vxFilter Lib "vxbase.dll" (ByVal FilterString As String)
  45. Declare Sub vxFilterReset Lib "vxbase.dll" ()
  46. Declare Sub vxFormFrame Lib "vxbase.dll" (ByVal Hwnd As Integer)
  47. Declare Sub vxJoin Lib "vxbase.dll" (ByVal DbfArea As Integer, ByVal NtxArea As Integer, ByVal JoinExpr As String, ByVal KeyType As Integer, ByVal JoinTitle As String)
  48. Declare Sub vxJoinReset Lib "vxbase.dll" ()
  49. Declare Sub vxMemoEdit Lib "vxbase.dll" (Byval Hwnd As Integer, ByVal FieldName As String)
  50. Declare Sub vxReplDate Lib "vxbase.dll" (ByVal FieldName As String, ByVal DateString As String)
  51. Declare Sub vxReplDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  52. Declare Sub vxReplInteger Lib "vxbase.dll" (ByVal FieldName As String, IntAmount As Integer)
  53. Declare Sub vxReplLong Lib "vxbase.dll" (ByVal FieldName As String, LongInt As Long)
  54. Declare Sub vxReplString Lib "vxbase.dll" (ByVal FieldName As String, ByVal FieldString As String)
  55. Declare Sub vxSetErrorCaption Lib "vxbase.dll" (ByVal CaptionString As String)
  56. Declare Sub vxSetupPrinter Lib "vxbase.dll" (ByVal Hwnd As Integer)
  57. Declare Sub vxSum Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  58. Declare Sub vxTableDeclare Lib "vxbase.dll" (ByVal ColorRef&, BofExpr As Any, EofExpr As Any, ByVal Scope%, ByVal Quick%, ByVal Columns%) 
  59. Declare Sub vxTableField Lib "vxbase.dll" (ByVal ColIndex As Integer, ByVal ColHead As String,  ByVal ColExpr As String, ByVal ColType As Integer)
  60. Declare Sub vxTableReset Lib "vxbase.dll" ()
  61. Declare Sub vxWindowDereg Lib "vxbase.dll" (ByVal Hwnd As Integer)
  62.  
  63.  
  64. ' vxBase Functions
  65. ' ----------------
  66. Declare Function vxAppendBlank Lib "vxbase.dll" () As Integer 
  67. Declare Function vxAppendFrom Lib "vxbase.dll" (ByVal FromFile As String) As Integer
  68. Declare Function vxAreaDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
  69. Declare Function vxAreaNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
  70. Declare Function vxBof Lib "vxbase.dll" () As Integer 
  71. Declare Function vxBottom Lib "vxbase.dll" () As Integer 
  72. Declare Function vxChar Lib "vxbase.dll" (ByVal FieldName As String) As String
  73. Declare Function vxClose Lib "vxbase.dll" () As Integer 
  74. Declare Function vxCloseAll Lib "vxbase.dll" () As Integer
  75. Declare Function vxCloseNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
  76. Declare Function vxCopy Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
  77. Declare Function vxCopyStruc Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
  78. Declare Function vxCreateNtx Lib "vxbase.dll" (ByVal NewNtxName As String, ByVal NtxExpr As String) As Integer
  79. Declare Function vxDateFormat Lib "vxbase.dll" (ByVal DateField As String) As String
  80. Declare Function vxDbfName Lib "vxbase.dll" () As String
  81. Declare Function vxDecimals Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  82. Declare Function vxDeleted Lib "vxbase.dll" () As Integer
  83. Declare Function vxDeleteRange Lib "vxbase.dll" (ByVal StartRec As Long, ByVal EndRec As Long) As Integer
  84. Declare Function vxDeleteRec Lib "vxbase.dll" () As Integer
  85. Declare Function vxEmpty Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  86. Declare Function vxEof Lib "vxbase.dll" () As Integer
  87. Declare Function vxField Lib "vxbase.dll" (ByVal FieldName As String) As String
  88. Declare Function vxFieldCount Lib "vxbase.dll" () As Integer
  89. Declare Function vxFieldName Lib "vxbase.dll" (ByVal FieldNumber As Integer) As String
  90. Declare Function vxFieldSize Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  91. Declare Function vxFieldType Lib "vxbase.dll" (ByVal FieldName As String) As String
  92. Declare Function vxFile Lib "vxbase.dll" (ByVal FileName As String) As Integer
  93. Declare Function vxFound Lib "vxbase.dll" () As Integer
  94. Declare Function vxGo Lib "vxbase.dll" (ByVal RecNum As Long) As Integer
  95. Declare Function vxInteger Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  96. Declare Function vxIsMemo Lib "vxbase.dll" (ByVal MemoFieldName As String) As Integer
  97. Declare Function vxLockDbf Lib "vxbase.dll" () As Integer
  98. Declare Function vxLocked Lib "vxbase.dll" () As Integer
  99. Declare Function vxLockRecord Lib "vxbase.dll" () As Integer
  100. Declare Function vxLong Lib "vxbase.dll" (ByVal FieldName As String) As Long
  101. Declare Function vxMemoRead Lib "vxbase.dll" (Byval FieldName As String, ByVal LineWidth As Integer) As String
  102. Declare Function vxNtxDeselect Lib "vxbase.dll" () As Integer
  103. Declare Function vxNtxExpr Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
  104. Declare Function vxNtxName Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
  105. Declare Function vxNumRecs Lib "vxbase.dll" () As Long
  106. Declare Function vxPack Lib "vxbase.dll" (ByVal Hwnd As Integer) As Integer
  107. Declare Function vxRecall Lib "vxbase.dll" () As Integer
  108. Declare Function vxRecNo Lib "vxbase.dll" () As Long
  109. Declare Function vxRecSize Lib "vxbase.dll" () As Integer
  110. Declare Function vxReindex Lib "vxbase.dll" () As Integer
  111. Declare Function vxReplMemo Lib "vxbase.dll" (ByVal Fieldname As String, ByVal MemoString As String) As Integer
  112. Declare Function vxSeek Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
  113. Declare Function vxSeekSoft Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
  114. Declare Function vxSelectDbf Lib "vxbase.dll" (ByVal DbfArea As Integer) As Integer
  115. Declare Function vxSelectNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
  116. Declare Function vxSkip Lib "vxbase.dll" (ByVal NumRecords As Long) As Integer
  117. Declare Function vxTop Lib "vxbase.dll" () As Integer 
  118. Declare Function vxTrue Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  119. Declare Function vxUnlock Lib "vxbase.dll" () As Integer 
  120. Declare Function vxUseDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
  121. Declare Function vxUseNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
  122. Declare Function vxWrite Lib "vxbase.dll" () As Integer 
  123. Declare Function vxZap Lib "vxbase.dll" () As Integer 
  124.  
  125.  
  126. ' ---------------------------------------
  127. ' File structure data type. Add more
  128. ' elements or delete unnecessary elements
  129. ' as required by the largest dbf creation
  130. ' in your application
  131. ' ---------------------------------------
  132.  
  133. Type FileStruc
  134.    Fld01 As String * 16
  135.    Fld02 As String * 16
  136.    Fld03 As String * 16
  137.    Fld04 As String * 16
  138.    Fld05 As String * 16
  139.    Fld06 As String * 16
  140.    Fld07 As String * 16
  141.    Fld08 As String * 16
  142.    Fld09 As String * 16
  143.    Fld10 As String * 16
  144.    Fld11 As String * 16
  145.    Fld12 As String * 16
  146.    Fld13 As String * 16
  147.    Fld14 As String * 16
  148.    Fld15 As String * 16
  149.    Fld16 As String * 16
  150.    Fld17 As String * 16
  151.    Fld18 As String * 16
  152.    Fld19 As String * 16
  153.    Fld20 As String * 16
  154.    Fld21 As String * 16
  155.    Fld22 As String * 16
  156.    Fld23 As String * 16
  157.    Fld24 As String * 16
  158.    Fld25 As String * 16
  159.    Fld26 As String * 16
  160.    Fld27 As String * 16
  161.    Fld28 As String * 16
  162.    Fld29 As String * 16
  163.    Fld30 As String * 16
  164.    Fld31 As String * 16
  165.    Fld32 As String * 16
  166. End Type
  167.  
  168. ' declare functions that use FileStruc type
  169. ' -----------------------------------------
  170. Declare Function vxCreateDbf Lib "vxbase.dll" (ByVal NewDbfName As String, ByVal NumFields As Integer, FStructure as FileStruc) As Integer
  171.